COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C SOMETHING TO DO WITH 'MS' DRAW LIBRARY FILES????
C00003 ENDMK
C⊗;
C SOMETHING TO DO WITH 'MS' DRAW LIBRARY FILES????
	DIMENSION I(500),K(350)
	CALL GETFI2('CLEFA',0)
	L=0
	CALL GETLIB(I,K,L)
	END

	SUBROUTINE GETLIB(JCLEF,KPNT,KX)
C GETS LIBRARY AND PUTS IT IN RIGHT SLOT
	DIMENSION JCLEF(1),KPNT(1)
	N=KX*11+1
C POINTER TO DIRECTORY OF EACH FILE
4	CALL FASTI2(KPNT(N),11)
5	N=KPNT(N+10)
C WORD COUNT IS IN 11TH WORD
	IF(N.LE.350)GO TO 10
	N=350
C GO ON ANYWAY
10	CALL FASTI2(JCLEF(KX*350+1),N)
	END